home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
terminal3.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
477b
|
14 lines
100 rem Term3.bas by K.L. Colclasure
110 rem Written 14 Nov 85
115 rem Set baud rate in Preferences
120 rem 110 or 300 baud only!
200 open "o",#1,"ser:": print #1, " ": close #1
300 get key$: if key$ = "" then 320
310 gosub 400
320 gosub 450: goto 300
400 key% = asc(key$): poke_w &hdff030,key%+256: return
450 char% = peek_w(&hdff018)
460 if (char% and 16384) = 0 then return
470 char$ = chr$(char% and 127): poke &hdff09c,8
480 print char$;: return